home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / gauge / slidvb25 / slider25.pas < prev    next >
Pascal/Delphi Source File  |  1996-01-20  |  10KB  |  241 lines
  1. {********************************************}
  2. {*                                          *}
  3. {* SLIDER25.PAS generated from SLIDER25.VBX *}
  4. {*                                          *}
  5. {********************************************}
  6.  
  7. unit Slider25;
  8.  
  9. interface
  10.  
  11. uses SysUtils, Classes, Graphics, Forms, Controls, VBXCtrl, BIVBX;
  12.  
  13. { $DEFINE InitTSlider}
  14. {^- Remove space to enable default init data -- See documentation. }
  15.  
  16. type
  17.   TSliderChangeEvent = procedure (Sender: TObject) of object;
  18.  
  19.   { TSlider }
  20.  
  21.   TSlider = class(TVBXControl)
  22.   protected
  23.     FOnChange: TSliderChangeEvent;
  24.     { Event handler }
  25.     procedure HandleVBXEvent(var Message: TWMVBXFireEvent); override;
  26.     procedure DefineProperties(Filer: TFiler); override;
  27.   public
  28.     constructor Create(AOwner: TComponent); override;
  29.  
  30.     property Index: TVBInteger index 0 read GetIntProp;
  31.     property FontName: TVBString index 13 read GetStringProp write
  32.       SetStringProp;
  33.     property FontBold: Boolean index 14 read GetBoolProp write SetBoolProp;
  34.     property FontItalic: Boolean index 15 read GetBoolProp write SetBoolProp;
  35.     property FontStrikethru: Boolean index 16 read GetBoolProp write
  36.       SetBoolProp;
  37.     property FontUnderline: Boolean index 17 read GetBoolProp write
  38.       SetBoolProp;
  39.     property FontSize: Single index 18 read GetSingleProp write SetSingleProp;
  40.     property AVersion: Single index 19 read GetSingleProp write SetSingleProp;
  41.     property Redraw: Boolean index 73 read GetBoolProp write SetBoolProp;
  42.     property RedrawStatic: Boolean index 74 read GetBoolProp write
  43.       SetBoolProp;
  44.     property ZLoad: TVBInteger index 80 read GetIntProp write SetIntProp;
  45.   published
  46.     property Enabled;
  47.     property Visible;
  48.     property MousePointer: TVBEnum index 8 read GetEnumProp write SetEnumProp
  49.       default 0;
  50.     property TabOrder;
  51.     property TabStop;
  52.     property About: TVBString index 20 read GetStringProp {NoRT}write
  53.       SetStringProp stored False;
  54.     property BevelWidth: TVBInteger index 21 read GetIntProp write SetIntProp;
  55.     property BevelInner: TVBEnum index 22 read GetEnumProp write SetEnumProp;
  56.     property BevelOuter: TVBEnum index 23 read GetEnumProp write SetEnumProp;
  57.     property BorderWidth: TVBInteger index 24 read GetIntProp write
  58.       SetIntProp;
  59.     property Value: Single index 25 read GetSingleProp write SetSingleProp;
  60.     property Max: Single index 26 read GetSingleProp write SetSingleProp;
  61.     property Min: Single index 27 read GetSingleProp write SetSingleProp;
  62.     property BackColor: TColor index 28 read GetColorProp write SetColorProp;
  63.     property BackPicture: TVBPic index 29 read GetPictureProp write
  64.       SetPictureProp stored False;
  65.     property OnColor: TColor index 30 read GetColorProp write SetColorProp;
  66.     property OnPicture: TVBPic index 31 read GetPictureProp write
  67.       SetPictureProp stored False;
  68.     property OffColor: TColor index 32 read GetColorProp write SetColorProp;
  69.     property OffPicture: TVBPic index 33 read GetPictureProp write
  70.       SetPictureProp stored False;
  71.     property BarBorder: Single index 34 read GetSingleProp write
  72.       SetSingleProp;
  73.     property BarInner: Single index 35 read GetSingleProp write SetSingleProp;
  74.     property BarOuter: Single index 36 read GetSingleProp write SetSingleProp;
  75.     property KnobColor: TColor index 37 read GetColorProp write SetColorProp;
  76.     property KnobPicture: TVBPic index 38 read GetPictureProp write
  77.       SetPictureProp stored False;
  78.     property KnobStyle: TVBEnum index 39 read GetEnumProp write SetEnumProp;
  79.     property KnobXScale: Single index 40 read GetSingleProp write
  80.       SetSingleProp;
  81.     property KnobYScale: Single index 41 read GetSingleProp write
  82.       SetSingleProp;
  83.     property KnobOffset: Single index 42 read GetSingleProp write
  84.       SetSingleProp;
  85.     property Orientation: TVBEnum index 43 read GetEnumProp write SetEnumProp;
  86.     property Direction: TVBEnum index 44 read GetEnumProp write SetEnumProp;
  87.     property MouseControl: Boolean index 45 read GetBoolProp write
  88.       SetBoolProp;
  89.     property Tics: TVBInteger index 46 read GetIntProp write SetIntProp;
  90.     property TicID: TVBInteger index 47 read GetIntProp write SetIntProp;
  91.     property TicStart: Single index 48 read GetSingleProp write SetSingleProp
  92.       stored False;
  93.     property TicStop: Single index 49 read GetSingleProp write SetSingleProp
  94.       stored False;
  95.     property TicInner: Single index 50 read GetSingleProp write SetSingleProp
  96.       stored False;
  97.     property TicOuter: Single index 51 read GetSingleProp write SetSingleProp
  98.       stored False;
  99.     property TicLabelPosition: Single index 52 read GetSingleProp write
  100.       SetSingleProp stored False;
  101.     property TicLabelOn: Boolean index 53 read GetBoolProp write SetBoolProp
  102.       stored False;
  103.     property TicDelta: Single index 54 read GetSingleProp write SetSingleProp
  104.       stored False;
  105.     property TicColor: TColor index 55 read GetColorProp write SetColorProp
  106.       stored False;
  107.     property TicFontID: TVBInteger index 56 read GetIntProp write SetIntProp
  108.       stored False;
  109.     property Captions: TVBInteger index 57 read GetIntProp write SetIntProp;
  110.     property CaptionID: TVBInteger index 58 read GetIntProp write SetIntProp;
  111.     property Caption: TVBString index 59 read GetStringProp write
  112.       SetStringProp stored False;
  113.     property CaptionX: Single index 60 read GetSingleProp write SetSingleProp
  114.       stored False;
  115.     property CaptionY: Single index 61 read GetSingleProp write SetSingleProp
  116.       stored False;
  117.     property CaptionColor: TColor index 62 read GetColorProp write
  118.       SetColorProp stored False;
  119.     property CaptionFontID: TVBInteger index 63 read GetIntProp write
  120.       SetIntProp stored False;
  121.     property Digital: Boolean index 64 read GetBoolProp write SetBoolProp;
  122.     property DigitalX: Single index 65 read GetSingleProp write SetSingleProp;
  123.     property DigitalY: Single index 66 read GetSingleProp write SetSingleProp;
  124.     property DigitalDecimals: TVBInteger index 67 read GetIntProp write
  125.       SetIntProp;
  126.     property DigitalColor: TColor index 68 read GetColorProp write
  127.       SetColorProp;
  128.     property DigitalFontID: TVBInteger index 69 read GetIntProp write
  129.       SetIntProp;
  130.     property ShapeStyle: TVBEnum index 70 read GetEnumProp write SetEnumProp;
  131.     property Shape: TVBString index 71 read GetStringProp write SetStringProp;
  132.     property AutoRedraw: Boolean index 72 read GetBoolProp write SetBoolProp;
  133.     property FontID: TVBInteger index 75 read GetIntProp write SetIntProp;
  134.     property Fonts: TVBInteger index 76 read GetIntProp write SetIntProp
  135.       stored False;
  136.     property Snap: TVBEnum index 77 read GetEnumProp write SetEnumProp;
  137.     property SnapIncrement: Single index 78 read GetSingleProp write
  138.       SetSingleProp;
  139.     property FontDialog_: TVBString index 79 read GetStringProp {NoRT}write
  140.       SetStringProp stored False;
  141.     property OnClick;
  142.     property OnDragDrop;
  143.     property OnEndDrag;
  144.     property OnDragOver;
  145.     property OnEnter;
  146.     property OnKeyDown;
  147.     property OnKeyPress;
  148.     property OnKeyUp;
  149.     property OnExit;
  150.     property OnMouseDown;
  151.     property OnMouseMove;
  152.     property OnMouseUp;
  153.     property OnChange: TSliderChangeEvent read FOnChange write FOnChange;
  154.   end;
  155.  
  156. procedure Register;
  157.  
  158. implementation
  159.  
  160. { Default form data for TSlider }
  161.  
  162. {$IFDEF InitTSlider}
  163.  
  164. const
  165.   TSliderInitLen = 228;
  166.  
  167. procedure TSliderInitData; near; assembler;
  168. asm
  169.     DB    $00,$00,$00,$02,$06,$FF,$FF,$07,$FF,$FF,$08,$00,$09,$00,$00,$0A
  170.     DB    $00,$00,$0B,$00,$0C,$06,$53,$6C,$69,$64,$65,$72,$13,$62,$10,$20
  171.     DB    $40,$15,$02,$00,$16,$01,$17,$02,$18,$02,$00,$19,$00,$00,$48,$42
  172.     DB    $1A,$00,$00,$C8,$42,$1B,$00,$00,$00,$00,$1C,$C0,$C0,$C0,$00,$1E
  173.     DB    $00,$FF,$00,$00,$20,$FF,$00,$00,$00,$22,$CD,$CC,$CC,$3D,$23,$9A
  174.     DB    $99,$99,$3E,$24,$33,$33,$33,$3F,$25,$00,$00,$00,$00,$27,$00,$28
  175.     DB    $00,$00,$00,$00,$29,$00,$00,$00,$00,$2A,$00,$00,$00,$00,$2B,$01
  176.     DB    $2C,$01,$2D,$FF,$FF,$2E,$00,$00,$2F,$00,$00,$39,$00,$00,$3A,$00
  177.     DB    $00,$40,$00,$00,$41,$00,$00,$00,$00,$42,$00,$00,$00,$00,$43,$00
  178.     DB    $00,$44,$00,$00,$00,$00,$45,$00,$00,$46,$00,$47,$00,$48,$FF,$FF
  179.     DB    $4B,$00,$00,$4D,$00,$4E,$00,$00,$00,$00,$50,$00,$00,$00,$00,$01
  180.     DB    $00,$10,$00,$07,$00,$00,$00,$00,$00,$BC,$02,$00,$00,$00,$00,$01
  181.     DB    $02,$02,$22,$53,$79,$73,$74,$65,$6D,$00,$3B,$56,$E2,$8F,$3B,$1C
  182.     DB    $00,$00,$00,$17,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01
  183.     DB    $00,$20,$00,$FF
  184. end;
  185.  
  186. {$ENDIF}
  187.  
  188. { TSlider }
  189.  
  190. constructor TSlider.Create(AOwner: TComponent);
  191. begin
  192.   FVBXFile := StrNew('SLIDER25.VBX');
  193.   FVBXClass := StrNew('SLIDER');
  194.   SetBounds(0, 0, 80, 32);
  195.   inherited Create(AOwner);
  196.   ControlStyle := ControlStyle - [csCaptureMouse, csClickEvents];
  197.   TabStop := True;
  198.   FVBXFlags := [vfLoadMessage];
  199.   {$IFDEF InitTSlider}
  200.   FHForm := VBXCreateFormFile(TSliderInitLen, @TSliderInitData);
  201.   {$ENDIF}
  202. end;
  203.  
  204. procedure TSlider.HandleVBXEvent(var Message: TWMVBXFireEvent);
  205. begin
  206.   case Message.VBXEvent^.EventIndex of
  207.     0: DispatchNotifyEvent(OnClick);
  208.     1: begin end; { VCL Handles OnDragDrop }
  209.     2: begin end; { VCL Handles OnDragOver }
  210.     3: begin end; { VCL Handles OnGotFocus }
  211.     4: DispatchKeyEvent(OnKeyDown, Message);
  212.     5: DispatchKeyPressedEvent(OnKeyPress, Message);
  213.     6: DispatchKeyEvent(OnKeyUp, Message);
  214.     7: begin end; { VCL Handles OnLostFocus }
  215.     8: DispatchMouseEvent(OnMouseDown, Message);
  216.     9: DispatchMouseMoveEvent(OnMouseMove, Message);
  217.     10: DispatchMouseEvent(OnMouseUp, Message);
  218.     11: DispatchCustomEvent(FOnChange, Message, 11);
  219.   end;
  220. end;
  221.  
  222. procedure TSlider.DefineProperties(Filer: TFiler);
  223. begin
  224.   inherited DefineProperties(Filer);
  225.   HandleProperty('AVersion', Filer, 19);
  226.   HandleBinaryProperty('BackPicture_Data', Filer, 29);
  227.   HandleBinaryProperty('OnPicture_Data', Filer, 31);
  228.   HandleBinaryProperty('OffPicture_Data', Filer, 33);
  229.   HandleBinaryProperty('KnobPicture_Data', Filer, 38);
  230.   HandleBinaryProperty('ZLoad', Filer, 80);
  231. end;
  232.  
  233. { Designer registration }
  234. procedure Register;
  235. begin
  236.   RegisterComponents('VBX', [
  237.     TSlider]);
  238. end;
  239.  
  240. end.
  241.